'\\MPFILEP1\groups3\Retail\Marketing
Set WshShell = WScript.CreateObject("WScript.Shell") 
Folder=inputbox("Please put file full path")
temp=Split(Folder, "\", -1, 1)
num=UBound(temp)
file = temp(num)
if file ="" then file = temp(num-1)
fileprop = file & "Properties"
advprop = "Advanced Security Settings for " & file
If Folder <> "" Then 
	WshShell.run "explorer /select,"&Folder
	WScript.Sleep 1000
	WshShell.sendkeys "%~"
End If
WScript.Sleep 1000
'Switch to Security tab'
WshShell.sendkeys "{Tab 5}"
WshShell.sendkeys "{RIGHT}"
Wscript.Sleep 3000
'Open Advanced tab'
WshShell.sendkeys "{Tab 10}"
WshShell.sendkeys "{ENTER}"
'Switch to Effective Permission tab'
Wscript.Sleep 1000
WshShell.sendkeys "{Tab 5}"
WshShell.sendkeys "{RIGHT 3}"
'Enter user to check access'
WshShell.sendkeys "{Tab}"
WshShell.sendkeys "{ENTER}"


'while not WshShell.AppActivate(advprop)
'	WshShell.sendkeys "{Tab 10}"
'	WshShell.sendkeys "{ENTER}"
'wend